Написать программу, окружность радиусом 5 пикселей, движущуюся слева направо по экрану. Режим screen12- QBasic(Бейсик)

CLS
SCREEN 12
FOR i = 1 TO 629
    CIRCLE (5 + i, 10), 5 ,0
    CIRCLE (5 + i, 10), 5, , , , 1
    FOR n = 1 TO 900000
    NEXT
NEXT

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment